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friend of mine is investing in new computer equip- 
ment, and his latest purchase has made the least of 
is half-dozen PCs more powerful than my only 
computer. I am staving off covetousness by reminding 
myself of the old days, when quantity was unimportant. 

I cut my first programming teeth on a Univac II; a 
room-sized mainframe with a memory of 48K 6-bit bytes. 
I boasted of the hundreds of addition operations possible 
with each tick of the clock, which made it match any 
modern digital watch. 

Another old-timer, John Worley of Havant, used to 
construct logic circuits with old valve technology. This 
required a massive dose of electric power compared to 
the need of today’s microchips. He trained himself to 
work on boards with one hand behind his back, making 
it harder to put his body into the electric circuit. 

This was a great safety tip, but it had its drawbacks. 
His hands became reluctant to pick up his knife and fork 
simultaneously at mealtimes. To persuade himself to eat, 
he had to remind himself ‘This fried egg has no intention 
of killing me.’ 


Not so Precise 

Ian Lovelock writes to me about a computing problem I 
know well. He has recorded a pounds and pence amount 
in a numeric field (using QuickBasic , although this 
applies in many languages). Since a decimal fraction is 
involved (pence as a fraction of a pound), he has used a 
single-precision field. 

The terms single-precision and double-precision are 
deceptive; many think values expressed in such fields are 
more precise or accurate. This is not so when you 
express exact units like pence or hundredths of a second. 

So-called precision fields are more properly called 
real-type values in C and Pascal parlance. When you 
assign a value to such a field, say .58 (58 pence), an 
approximation of the value is calculated using logarithms. 
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This new value is called a ‘floating point number’. If you 
later want to use it (say, to print it out) the program must 
internally recalculate your original number, but unfortu- 
nately .58 comes back as .579994. 

Ian’s problem was converting the value in a single- 
precision field back to a sensible pounds and pence 
figure for printing. The advice given worked for many 
values — but not for 58 pence, which came out as 57. 

He eventually found a solution, which he says works 
for all numbers to two decimal places. He sets it as a 
challenge, which is quite straightforward, so there are no 
prizes for rediscovering it, but it may serve as an interest- 
ing problem. His solution will appear in January’s issue. 


New Tricks Wanted 

SuperDisk contributor David Bratton, who gave us the 
scrolling stars routine in last month’s Workshop, poses a 
few problems along with some partly-baked solutions. 
Perhaps some of you have solutions to share. 

Firstly, how can a program determine processor speed 
accurately so that it can recalibrate? Too many games are 
spoilt by being unplayable on a faster processor. 

One solution is to build a little loop into your program 
at the beginning, adding one to a counter repeatedly until 
a second has passed. The value in this counter can be 
used to compare the speed of your processor with others. 
Getting the count right is tricky, but one way is to wait 
for the ‘tick’ as a second turns before the count begins. 
Here’s my routine in GW-Basic: 


100 FOR X = 1 TO 2 

110 c% = 0 

120 A% = TIMER MOD 10 
130 B% = TIMER MOD 10 
140 C%’ = C% +1 

150 IF A% = B% GOTO 130 
160 NEXT X 


In this routine, executing it twice will throw away the 
result (in c%) of the first second — which may have been 
part of a second; only the result after you’ve gone 
through twice is valid. (The MOD functions are to keep 
the value in TIMER down to reasonable proportions). 

On my processor, I get c% equal to 475 (it may vary a 
bit with repeated tries). If my game program has this loop 
in it, I will be able to see what the relative processor 
speed is. Say my program runs with C% equal to about 
950 on yours; I know to slow it down by a factor of two 
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(950 divided by 475). This can be done by having little value of MASK in line 340. For example, a value of one 
‘do-nothing’ loops in the program, with a counter that (&H01) in the mask detects the right shift key; two 
can vary by this speed-up factor, calculated at the pro- (&H02) detects the left shift key, and so on, doubling as 
gram start. Any better ideas? we go up each line. So a mask of 128 (&H80) tests the 
David also looks at the keyboard type. The function insert status; a non-zero result for PEEK(&H0417) and MASK 
keys and some shift keys ((Ctrl] and [Alt]) are in different means the status is ON. (I saved time by doing the PEEK 
places on older keyboards. Newer ones have several once outside the loop, instead of eight times inside it.) 
more valid key combinations and the ability to adjust the The variable ‘A’ is the result of that PEEK. 
‘typematic’ rate. How best can a program determine The routine is an endless loop, so you can see the 
which type of keyboard is installed, so it can compensate effect of pressing different shift keys. Note that you can 
for the old style? hold down [ALT], but the status goes OFF as soon as you 
My method of discovering which type of keyboard is release your finger. 
present involves assembler code. Does anybody know a There is a way to escape from the routine — press the 
more easily incorporated way? If not, mine will follow in left shift and right shift simultaneously, and the test in line 
a few months. 370 fails — so you fall out of the bottom. 
Finally, he looks at repeated keys, and asks how best 
the high-level programmer can use keys quickly say for 100 DEF SEG = 0 
moving a character around a maze. In most languages, 110 CLS 
even the fastest reading of successive keys can be slow. 120 LOCATE 5,1 
Ideas are welcome. The problem involves reading a 130 PRINT "INSERT" 
keystroke, interpreting it, processing it and returning for 140 PRINT "CAPSLOCK" 
the next one at better than the typematic rate. My ideas 150 PRINT "NUMLOCK" 
include speedier screen output direct to memory instead 160 PRINT "SCROLLLOCK" 
of through language routines or Basic Input/Output 170 PRINT "ALT KEY" 
System (BIOS), but this doesn’t solve the whole problem. 180 PRINT "CTRL KEY" 
David has come up with an ingenious plan; you can 190 PRINT "LEFT SHIFT" 
PEEK to get the status of the shift keys. We have done 200 PRINT "RIGHT SHIFT" 
this before in the Workshop, but he goes one better by 
using the [Ctrl] shift and [Alt] shift as direction keys — suit- 300 A = PEEK(&H0417) 
able for a variety of games where only left and right 310 MASK = 1 
movement is required. Other shift keys can be used for 320 FOR X = 12 TO 5 STEP - 1 
‘fire’ and the like. David sent in a Pascal version of Space 330 LOCATE X,13 
Invaders that uses this principle, along with many other 340 IF A AND MASK THEN PRINT "ON" ELSE PRINT "OFF" 
arcade games, all playable at high speed. 350 MASK = MASK + MASK 
The following code demonstrates how to read the shift 360 NEXT X 
key virtually instantly, with no strokes jamming the key- 370 IF (A AND 3) <> 3 GOTO 300 
board buffer. It'll give a live display of the status of each 380 CLS 
shift, including the insert status and the shiftlock keys. 
The crux of the matter is the PEEK in line 300, and the Now you know how to detect these keys, how about a 


SETTING KEYS TO INTERRUPT A PROGRAM | 


I've received two versions of the same request; how to make pro- and running again; you will not be able to interrupt the list, even 
grams interruptible by a keystroke. It is surprising that this simple though the ON KEY command is present. 
technique is not better known, as it can usually be built into existing Other keys can be specified, and you can set several traps at the 
easily. The only problem is that it varies in different types same time (so each key executes a different routine). You can also 

of languages. turn the trap ON and OFF at will. 

With GW-Basic (and big brother QuickBasic), there are two parts Some languages don’t have such a sophisticated way of doing 
to the process. Firstly, a statement like: ON KEY(1) GOSUB 7000 key traps, but they can still be done without too much effort. As a 
tells the interpreter what subroutine to execute (7000 in this case) representative of database languages, let's look at SR-Info. 


when a specific key is pressed (the F1 key is specified here). This In SR-Info and similar languages, you must check for keystrokes. 
| should be put where it can be executed early, perhaps near the Normally, this periodic checking (called polling) is done by a short 
| beginning of the program. It only needs to be executed once. routine of code added in the process loop. The problem is that SR- 


Secondly, a matching statement like KEY(1) ON. This tells the Info's INKEY function will tell what key was pressed, but 
Basic interpreter te in future the trap should be activated when unfortunately if there's been no keystroke it will suspend operation 


_ the specified key is pressed and wait for one. The polling code must include INKEY, but this 
Here’s a simple example that will work in GW-Basic: should only be executed when we know a keystroke has already 
been made - and IFKEY will help us there. 
100 ON KEY(1) GOsUB 200 This example works like the GW-Basic one above. 
110 KEY(1) on 
‘120 FOR A = 1 TO 500 PICTURE = 9999999 
130 PRINT A, A*A REPEAT 500 TIMES VARYING A 
140 NEXT A : 2 A, A*A 
150 END IF IFREY() 
| ; IF INKEY() = 315 
200 INPUT "PAUSED: press ENTER to continue";X$ ? “PAUSED: Press ENTER to continue" 
|| 210 RETURN DO WHILE INKEY() <> 13 
- ENDD 
| This will print a long table of numbers and their squares, but can be ENDI 
_ interrupted by pressing [F1]. Try it out, then try deleting line 110 ENDI 


PC PLUS December 91 


BACKGROUND °2OGRAMMING 


few fast-action GW-Basic games, the simpler the better? 
Has anybody broken through the keystroke barrier in a 
high-level language, so that we can read all keystrokes at 
a moderate speed? Would you like to share your tech- 
nique with us? 


The Halls of the Language Museum 
Several letters have shown an interest in the Hacker's 
Dictionary, from which I quoted in issue 60. 

Simon Sheppard has sent me a semi-serious dictionary 
of acronyms from IBM. It looks like it started life as a 
serious attempt to trace newly-coined words in that tech- 
nological jungle. 

Programmers have coined a lot of terms for which 
they can’t remember the allusion. How many coders born 
since the 1950s know that ‘boot’ is a reference to the 
phrase ‘He pulled himself up by his bootstraps’, a seem- 
ingly impossible task, praising a person’s initiative. 

SPOOL is an acronym for Simultaneous Peripheral 
Output On-Line. This reminds me of the acronym PEN 
(Plotter/Encoder/Notator) for Ciphers, Icons and Letters; 
an inscriptive device for making marks on a Passive 

ccumulative Permanent/Erasable Raster. 

I recently found out why engineers use the word DIN 
when they talk about the different kinds of plugs; it 
comes from Deutsche IndustrieNorm (the German 
Industry Standard). 


Language Summaries 

A few weeks ago, I talked to somebody about a language 
which used the command LOOP as the close of a WHILE 
construct. I had difficulty adjusting to this, as I had been 
working with Clarion just a few minutes earlier. 

Here, LOOP is a command that opens a construct 
which repeats a limited number of times. Both are per- 
fectly legitimate and logical uses of the word, but 
confusingly different. 

Since I use several languages, I have made several 
pages for my binder that encapsulate important com- 
mands, charts and other information. This enables me to 
easily access details which will remind me of salient fea- 
tures, and to sort out differences like this. 

If you create a system that you would like to share 
with us, please send it along. 


" A Little Light Reading 

“Tam very keen to recommend good programming books, 
and to pass on any recommendations that you might 
have. One of the most indispensable books that I keep in 
my home library is The Programmer's PC Sourcebook by 
Thom Hogan. 

This book includes over 500 large pages of reference 

tables for the PC and its software, published by Microsoft 
Press at £29.95. If you experience difficulty finding it in 


book shops, telephone Penguin books (the UK publisher) 
on 081-759 5722. 

This volume includes details of binary, hexadecimal, 
character sets, truth tables, DOS commands, utilities, disk 
and file layouts, BIOS and DOS interrupts, function sup- 
port tables, device drivers, EMS (Expanded Memory 
Specification), Windows structure, and general hardware. 
Usefully, all of this is presented in very easy-to-reference 
chart form. 


Eureka! 

Have you ever had one of those blinding inspirations 
that gives you impetus to do better coding? I have 
recently had such an insight which has made life 
considerably easier. 

I've had problems matching starts and ends of struc- 
tures — whether in C, Basic, or almost anything else. The 
idea is that when composing the source, you key the start 
and end (for example, parentheses) simultaneously, and 
backspace over the end. 

If your editor is in insert mode, you can code the inte- 
rior of the structure, which may in turn involve a 
structure. So to peek at an ASCII character in memory the 
command may be: 


C$ = CHR$ (PEEK (&H123) ) 


This looked like each of the following lines at various 
stages of keying: 


C$ = CHRS$() 
C$ = CHR$(PEEK() ) 
C$ = CHR$(PEEK(&H123) ) 


I was assured that because of the order in which I keyed 
things, my parentheses would always match. In this 
example, it was easy to keep count of the number and 
location of parentheses. However, this really helps in the 
more complex cases. 

It works with structured languages too; in dBASE and 
SR-Info, start off with IF ENDIF, and then back-up to the 
middle; In C and Clarion, key the full stop straight after 
the rF, and then back-up. 

Finally, note that there will be at least a two month 
gap between me reading your letter and discussing it in 
PC PLUS, so please be patient. @ 


Tips, arguments and ideas are gratefully received by: 


Wilfs Programmers’ Workshop 
PC PLUS Magazine 

Beauford Court 

30 Monmouth Street 

BATH BA1 2BW 


In this industry, using jargon helps us communi- 

cate quickly, but | fear that many use it as 

passwords into acceptable circles. | once suffered 

under a misguided manager who'd adopted the 

term ‘Corporate Database’ as his own, long 
__ before it had been explained to anybody. 

_ Many people thought he knew his facts, and 
he was asked to give a talk on the use of data dic- 
tionaries to our team. He resigned ‘for health 

' reasons’ the day before the presentation. Only 
when he left did we discover that he only used 


ONLY THE NAMES HAVE BEEN CHANGED | 


such words to elevate his sense of importance. 
I'm sure many of you have come across simi- 
lar people. | have been reading and studying 
OOP - the new Object Oriented Programming 
technology that’s at the heart of languages like 
C++. | must say that can’t see anything new in 
this at all; OOP really appears to be a standard 
way of defining and organising procedure names 
within a program. In fact, it's not actually very 
flexible, for it is a system that is difficult to 
impose on a program which has been inherited 


from somebody else. 

| have spent many late nights massaging an 
old heirloom of a program into a state where it 
can serve a useful purpose. Many programming 
tools have come and gone, and the best could 
breathe new life into old programs. | fondly 
remember decision tables; Dijkstra’s ‘goto-less 
programming’; menuing; case tools. For me these 
were more than flavour of the month. But it's 
hard to see OOP taking pride of place among 
programming concepts; it’s not even new. 
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